home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / GRAPH04.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  512 b   |  21 lines
  1. 10  '**********************************
  2. 20  '**        GRAPH04               **
  3. 30  '**********************************
  4. 40  SCREEN 2:KEY OFF:CLS
  5. 50  INPUT "ENTER X1 AND Y1";A(1),B(1)
  6. 60  INPUT "ENTER X2 AND Y2";A(2),B(2)
  7. 70  INPUT "DENSITY OF LINES";D
  8. 80  CLS
  9. 90  A=A(1):B=B(1):GOSUB 120
  10. 100  A=A(2):B=B(2):GOSUB 120
  11. 110  GOTO 110
  12. 120  FOR X = 0 TO 199 STEP D/4
  13. 130  LINE (0,X)-(A,B)
  14. 140  LINE (639,X)-(A,B)
  15. 150  NEXT X
  16. 160  FOR Y = 0 TO 639 STEP D/2
  17. 170  LINE (Y,0)-(A,B)
  18. 180  LINE (Y,199)-(A,B)
  19. 190  NEXT Y
  20. 200  RETURN
  21.